home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ CD AutoStart OptionsEx.xpl < prev    next >
Encoding:
XSetup plugin  |  1999-06-14  |  1.8 KB  |  62 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="1"
  4. "UIPATH"="System\File System\CD Autostart"
  5. "NAME"="Autostart Audio CD command"
  6. "VERSION"="1.42"
  7. "LANGUAGE"="VBScript"
  8. "DATA 1"="Programs (*.EXE)|*.exe"
  9. "TEXT 1"="Command"
  10. "DESCRIPTION 1"="If you have enabled the autostart of an Audio CD-ROM, Windows uses a program to play the CD."
  11. "DESCRIPTION 2"="Maybe you don't like the Windows CD-Player so you can enter your favorite player here."
  12. "DESCRIPTION 3"="The default value for this setting is "cdplayer.exe /play %1" or "C:\PROGRA~1\PLUS!\DeluxeCD\deluxecd.exe /play %1"."
  13. "DESCRIPTION 4"="This setting can also be used to kill RealJukeBox G2 from being your default CD Player."
  14. "AUTHOR"="Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  17. "COMMENT 2"="Thanks to CptSiskoX for the help!"
  18.  
  19.  
  20.  
  21.  
  22. sFileType="HKCR\.cda\@" 'should be "cdafile"
  23.  
  24. sp1="HKCR\AudioCD\Shell\Play\Command\@" 'main entry!
  25. sp2="HKCR\cdafile\Shell\Play\Command\@" 'very strange, isn't it????
  26.  
  27. Sub Plugin_Initialize 
  28.  s=RegReadValue(sp1)
  29.  SetUIElement 1,s
  30. End Sub
  31.  
  32. Sub Plugin_CheckData(ElementIndex)
  33. End Sub
  34.  
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  s=GetUIElement(1)
  37.  
  38.  If Len(s)>0 then
  39.     'write the command
  40.     if GetWinVer=2 then 'on NT, write EXPAND_SZ 
  41.        Call RegWriteValue(sp1,s,4)
  42.        Call RegWriteValue(sp2,s,4)
  43.     else
  44.        Call RegWriteValue(sp1,s,1)
  45.        Call RegWriteValue(sp2,s,1)
  46.     end if
  47.  
  48.     'assign CDA to cdafile
  49.     Call RegWriteValue(sFileType,"cdafile",1)
  50.  
  51.     'should be fine now
  52.  else
  53.   MsgError "Please enter a command for playing Audio-CDs"
  54.  end if
  55.  
  56.  
  57.  
  58. End Sub
  59.  
  60. Sub Plugin_Terminate 
  61. End Sub
  62.